home *** CD-ROM | disk | FTP | other *** search
- ; $VER: PaybackDemo Update Version 1.2 (23 February 2001)
- ; © James Daniels/Apex Designs
-
- (set #installdrawer (cat "Var god, välj lådan där du har installerat den spelbara Paybackdemon."))
-
- (set #installdrawer-help (cat "Var god, välj lådan som innehåller demoversionen av Payback, som du vill uppdatera."))
-
- (set #notfound (cat "\nDetta verkar inte vara en accepterad spelbar demo av Payback.\nVar god, välj en annan låda."))
-
- (set #install-all (cat "Uppdaterar filer..."))
-
- (set #finished-message (cat "\nDin kopia av den spelbara Payback demon är nu uppdaterad."))
-
- (set destdir "RAM:")
-
- (while (= (exists (tackon destdir "PaybackDemo.exe")) 0)
- (
- (set destdir
- (askdir
- (prompt #installdrawer)
- (help #installdrawer-help)
- (default "RAM:")
- (disk)
- )
- )
-
- (if (= (exists (tackon destdir "PaybackDemo.exe")) 0)
- (message #notfound)
- )
- )
- )
-
- (complete 10)
-
- (copyfiles
- (prompt #install-all)
- (source "Files/")
- (pattern "#?")
- (dest destdir)
- )
-
- (complete 100)
-
- (message #finished-message)
-
- (set @default-dest destdir)
-